Global Biodiversity, Trade, and Conservation Funding
World Maps
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For example, you can include Bold and Italic and Code text. For more details on using R Markdown see http://rmarkdown.rstudio.com.
You should test out updating your GitHub Pages website:
- clone your group’s blog project repo in RStudio
- update “Your Project Title Here” to a new title in the YAML header
- knit
index.Rmd - commit and push BOTH the
index.Rmdand theindex.htmlfiles - go to https://stat231-s21.github.io/Blog-Team-Save-the-Planet/ to see the published test document (this is publicly available!)
Biodiversity
International Trade
Conservation Funding (as of 2013)
conservation <- read_csv("conservation_final.csv")
##
## ── Column specification ────────────────────────────────────────────────────────
## cols(
## region = col_character(),
## total_aid_funding = col_double(),
## total_domestic_funding = col_double(),
## trust_funds_and_debt_swaps = col_double(),
## other = col_double(),
## total = col_double(),
## log_funding = col_double(),
## sqrt_funding = col_double(),
## long = col_double(),
## lat = col_double(),
## group = col_double(),
## order = col_double(),
## subregion = col_logical()
## )
## Warning: 35929 parsing failures.
## row col expected actual file
## 1222 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1223 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1224 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1225 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## 1226 subregion 1/0/T/F/TRUE/FALSE Cabinda 'conservation_final.csv'
## .... ......... .................. ....... ........................
## See problems(...) for more details.
# Map of Log(funding)
ggplot(conservation, aes(x = long, y = lat, group = group,
fill = log_funding)) +
geom_polygon(color = "black") +
theme_void() +
coord_fixed(ratio = 1.3) +
labs(title = "Conservation Funding By Country*"
, subtitle = "as of 2013"
, fill = ""
, caption = "*Regions in white have no data") +
#scale_fill_continuous(low="thistle2", high="darkred", guide="colorbar", na.value="white")
scale_fill_viridis(option = "viridis", direction = -1, na.value="white")
In a study from the 1920s, fifty cars were used to see how the speed of the car and the distance taken to stop were related. Speeds ranged between 4 and 25 mph. Distances taken to stop ranged between 2 and 120 feet, with the middle 50% falling between 26 and 56 feet.